home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMMS4.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  542b  |  26 lines
  1. program DemoMessageFour;
  2. {demms4 - two strip-buttons}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totMSG, totIO1;
  6.  
  7. Var
  8.    MsgWin : PromptOBJ;
  9.    ActionCode: tAction;
  10.  
  11. begin
  12.    Screen.Clear(white,'░'); {paint the screen}
  13.    with MsgWin do
  14.    begin
  15.       Init(1,' Message ');
  16.       AddLine('');
  17.       AddLine('The message unit provides a');
  18.       AddLine('very easy way of displaying');
  19.       AddLine('pop-up messages in a move-');
  20.       AddLine('able window.');
  21.       AddLine('');
  22.       ActionCode := Show;
  23.       Done;
  24.    end;
  25. end.
  26.